Sub jumpToevidence()
'check selected cell
If ActiveCell.Column <> 2 Or ActiveCell.Row < 10 Then
    Debug.Print ActiveCell.Row; ActiveCell.Column
    Exit Sub
End If

If ActiveCell.Value = "" Then
    Exit Sub
End If

'sheet exists?
Dim sht_name As String
Dim i As Integer
Dim dialogResult As VbMsgBoxResult

sht_name = "No." & ActiveCell.Value
RowIndex = ActiveCell.Row

For i = 1 To ThisWorkbook.Sheets.Count
    If sht_name = ThisWorkbook.Sheets(i).Name Then
        Exit For
    End If
    'sheet does not exist
    If i = ThisWorkbook.Sheets.Count Then
        'insert a sheet after No.sample
        dialogResult = MsgBox("*** " & sht_name & " ***" & vbCrLf & "does not exist, would you like to create?", vbExclamation + vbOKCancel + vbDefaultButton2, "insert a new sheet")
        If dialogResult = vbOK Then
            ThisWorkbook.Sheets(2).Copy After:=ThisWorkbook.Sheets(2)
            ThisWorkbook.Sheets(3).Name = sht_name
            ThisWorkbook.Sheets(3).Range("A1").FormulaR1C1 = "=HYPERLINK(""#" & ThisWorkbook.Sheets(1).Name & "!B" & RowIndex & """, ""return_to_" & ThisWorkbook.Sheets(1).Name & """)"
            ThisWorkbook.Sheets(3).Range("B2").Select
            
        End If
        
        Exit Sub
    End If
    
Next i

ThisWorkbook.Sheets(i).Select

End Sub